home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / _ABOUT.FRM next >
Text File  |  1996-05-16  |  2KB  |  69 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "About 'MC SECURITY (16-Bit)'"
  5.    ClientHeight    =   1815
  6.    ClientLeft      =   945
  7.    ClientTop       =   1410
  8.    ClientWidth     =   5625
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   2160
  12.    Left            =   915
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1815
  18.    ScaleWidth      =   5625
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1095
  21.    Width           =   5685
  22.    Begin VB.CommandButton Command1 
  23.       Caption         =   "&OK"
  24.       Height          =   375
  25.       Left            =   4950
  26.       TabIndex        =   2
  27.       Top             =   1170
  28.       Width           =   555
  29.    End
  30.    Begin VB.PictureBox Picture1 
  31.       AutoSize        =   -1  'True
  32.       Height          =   510
  33.       Left            =   4950
  34.       Picture         =   "_ABOUT.frx":0000
  35.       ScaleHeight     =   480
  36.       ScaleWidth      =   480
  37.       TabIndex        =   0
  38.       TabStop         =   0   'False
  39.       Top             =   90
  40.       Width           =   510
  41.    End
  42.    Begin VB.Label Label1 
  43.       Alignment       =   2  'Center
  44.       Caption         =   "Label1"
  45.       Height          =   1545
  46.       Left            =   90
  47.       TabIndex        =   1
  48.       Top             =   180
  49.       Width           =   4695
  50.    End
  51. End
  52. Attribute VB_Name = "frmAbout"
  53. Attribute VB_Creatable = False
  54. Attribute VB_Exposed = False
  55. Option Explicit
  56.  
  57. Private Sub Command1_Click()
  58.    Unload Me
  59. End Sub
  60.  
  61. Private Sub Form_Load()
  62.    Label1.Caption = "MC SECURITY version " & Format$(cGetVersion(), "Fixed") & vbCr & vbCr
  63.    Label1.Caption = Label1.Caption & "Please register thru CompuServe" & vbCr & vbCr
  64.    Label1.Caption = Label1.Caption & "SWREG ID #8536" & vbCr & vbCr
  65.    Label1.Caption = Label1.Caption & "The price for 'MC SECURITY (16/32 Bit)' is $10.00"
  66. End Sub
  67.  
  68.  
  69.